home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD014a.dsk / DECEMBER.COVER.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  43 lines
  1. 100  REM ***********************
  2. 110  REM * SOFTDISK COVER PAGE *
  3. 120  REM * V2 #4 DECEMBER,1982 *
  4. 130  REM *                     *
  5. 140  REM *     BY JIM GANZ     *
  6. 150  REM *    82 SPRING LANE   *
  7. 160  REM *  WEST HARTFORD, CT. *
  8. 170  REM *        06107        *
  9. 210  REM *                     *
  10. 220  REM * PICTURE PACKING AND *
  11. 230  REM *    UNPACKING BY     *
  12. 240  REM * DAVID LUBAR FROM    *
  13. 250  REM *"CREATIVE COMPUTING,"*
  14. 260  REM * JUNE 1981 PP.128-38 *
  15. 270  REM ***********************
  16. 290  POKE 230,32: HCOLOR= 0: HPLOT 0,0: CALL 62454: HOME :D$ =  CHR$(4):R$ =  CHR$(13):Q$ =  CHR$(34)
  17. 300  GOSUB 400: IF  PEEK(4096) < >173  OR  PEEK(4097)  THEN  PRINT D$"BLOADCOVER.UNPACK
  18. 310  PRINT D$"BLOADCOVER.DEC.PCKD
  19. 320  VTAB 22: HTAB 7: PRINT "PRESS ANY KEY TO VIEW COVER
  20. 330  VTAB 24: HTAB 7: PRINT "(THEN PRESS AGAIN TO EXIT)";
  21. 340  POKE  -16368,0: CALL  -756
  22. 350  POKE 33,1: FOR X = 0 TO 19: POKE 32,X: HOME : POKE 32,39 -X: HOME : NEXT : TEXT 
  23. 360  POKE  -16300,0: POKE  -16302,0: POKE  -16297,0: POKE  -16304,0
  24. 370  CALL 4096: POKE  -16368,0
  25. 380  CALL  -756
  26. 390  PRINT R$D$"RUNKICK.IT.OFF
  27. 400  VTAB 4: INVERSE : FOR X = 0 TO 8: HTAB 11: PRINT  SPC( 29): PRINT : NEXT 
  28. 410  NORMAL 
  29. 420  VTAB 1: HTAB 3: PRINT "S O F T D I S K   M A G A Z E T T E
  30. 430  VTAB 6: PRINT "QUOTE"R$"OF"R$"THE"R$"MONTH"R$R$"--->
  31. 450  INVERSE 
  32. 460  VTAB 5:X = 12
  33. 470  HTAB X: PRINT Q$"MY BETTER PROGRAMS ALWAYS
  34. 480  HTAB X: PRINT "ORIGINATE FROM MY LOVE FOR
  35. 490  HTAB X: PRINT "PLAYING WITH THE MACHINE...
  36. 500  HTAB X: PRINT "DO WHAT IS FUN FOR YOU, AND,
  37. 510  HTAB X: PRINT "MORE OFTEN THAN NOT, YOU'LL
  38. 520  HTAB X: PRINT "CREATE SOMETHING THAT WILL
  39. 525  HTAB X: PRINT "BE GREAT FUN FOR OTHERS."Q$
  40. 530  NORMAL : VTAB 15
  41. 540  PRINT " * BILL BUDGE, APPLE GAME PROGRAMMER,      IN "Q$"SOFTALK,"Q$" FEBRUARY, 1981.
  42. 550  VTAB 19: HTAB 12: PRINT "COVER BY JIM GANZ
  43. 560  RETURN